unit udmbase;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, uApplicationData;

type

  { TdmBase }

  TdmBase = class(TDataModule)
  private
    { private declarations }
    _ApplicationData: TApplicationData;
  public
    { public declarations }
    constructor create( aOwner:TComponent; aApplicationData: TApplicationData );
  end; 

var
  dmBase: TdmBase;

implementation

{$R *.lfm}

{ TdmBase }

constructor TdmBase.create(aOwner: TComponent;
  aApplicationData: TApplicationData);
begin
  inherited Create(aOwner);
  _ApplicationData := aApplicationData;
end;

end.

